home *** CD-ROM | disk | FTP | other *** search
/ Interactive Quarterly / The Best of New Machine Publishing 1 - Disc 4: Interactive Quarterly.iso / pc / demos / az / cyberx.dxr / 00306_PANIC.ls < prev    next >
Encoding:
Text File  |  1996-10-06  |  570 b   |  34 lines
  1. on exitFrame
  2.   global Paleta_Panic
  3.   sound stop 1
  4.   sound stop 2
  5.   if not voidp(Paleta_Panic) then
  6.     if Paleta_Panic then
  7.       puppetPalette(Paleta_Panic)
  8.     end if
  9.   end if
  10.   go(the frame)
  11. end
  12.  
  13. on mouseUp
  14.   global Paleta_Panic
  15.   if not voidp(Paleta_Panic) then
  16.     if Paleta_Panic then
  17.       puppetPalette(Paleta_Panic)
  18.     end if
  19.   end if
  20.   set Paleta_Panic to 0
  21.   play done
  22. end
  23.  
  24. on keyUp
  25.   global Paleta_Panic
  26.   if not voidp(Paleta_Panic) then
  27.     if Paleta_Panic then
  28.       puppetPalette(Paleta_Panic)
  29.     end if
  30.   end if
  31.   set Paleta_Panic to 0
  32.   play done
  33. end
  34.